home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / RLaB 1.18c / rlib / union.r < prev    next >
Encoding:
Text File  |  1994-10-08  |  449 b   |  20 lines  |  [TEXT/RLAB]
  1. //-------------------------------------------------------------------//
  2. //  union
  3.  
  4. //  Syntax:    union ( A , B )
  5.  
  6. //  Description:
  7.  
  8. //  The union function returns a vector set that is the union of the
  9. //  two sets A, and B.
  10.  
  11. //  See Also: complement, intersection, set
  12.  
  13. //-------------------------------------------------------------------//
  14.  
  15. union = function ( A, B )
  16. {
  17.   if (A.n == 0 && B.n == 0) { return []; }
  18.   return set ( [ A[:] ; B[:] ] ) 
  19. };
  20.